home *** CD-ROM | disk | FTP | other *** search
/ PC Action 1999 September / PC Action Issue 81 (September 1999).ISO / vft / _setup.1 / inizio.dir / 00001.ls next >
Encoding:
Text File  |  1999-03-15  |  657 b   |  28 lines
  1. on exitFrame
  2.   global pippo, dove
  3.   set pippo to the pathName
  4.   set dove to EMPTY
  5.   set zDrive to charToNum("Z")
  6.   set aDrive to charToNum("D")
  7.   repeat with i = aDrive to zDrive
  8.     set drivePath to numToChar(i) & ":\"
  9.     repeat with x = 1 to 50
  10.       set curFile to getNthFileNameInFolder(drivePath, x)
  11.       if curFile = EMPTY then
  12.         exit repeat
  13.       end if
  14.       if curFile = "Fracent" then
  15.         set dove to drivePath
  16.         exit repeat
  17.       end if
  18.     end repeat
  19.     if dove <> EMPTY then
  20.       exit repeat
  21.     end if
  22.   end repeat
  23.   if dove = EMPTY then
  24.     alert("Non riesco a trovare il CD-Rom")
  25.   end if
  26.   go(1, dove & "film\menu")
  27. end
  28.